home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / programs / internet / dnet / drexxmail.lha / GRn / SetupGRn < prev   
Encoding:
Text File  |  1994-09-30  |  2.3 KB  |  66 lines
  1. /* Setup script for GRn/DNET ... AREXX because I understand    */
  2. /* AREXX and not C= Installer                                  */
  3.  
  4. /* This script is for DREXXMAIL Release 3 !                    */
  5. options results
  6. call addlib("rexxreqtools.library",0,-30,0)
  7.  
  8. /* Some initializations... */
  9.  
  10. lf = '0a'x
  11. cr = '0d'x
  12. colon='3a'x
  13. semicol='3b'x
  14. qmark='22'x
  15. fonttag=""
  16. address command
  17.  
  18. /* Tell em what this does ... */
  19.  
  20. msg = "This script will set up GRn for you ..."||lf||"Please read the documentation FIRST!"
  21. call rtezrequest(msg,"_Ok, read it already|_Cancel!","DNET-GRn Install",fonttag)
  22. if rtresult = 0 then exit
  23.  
  24. /* Do it ... */
  25.  
  26. msg = "Enter your REAL NAME."
  27. realname = rtgetstring("",msg,"DNET-GRn Install", , fonttag)
  28. if realname = "" then realname = "GRn-DNET User"
  29.  
  30. msg = "Now give me your NODE NAME."||lf||"e.g. if you receive mail at perry@brothers.grunt.com,"||lf||"give me brothers"
  31. nodename = rtgetstring("",msg,"DNET-GRn Install", , fonttag)
  32. msg = "Now give me your DOMAIN NAME."||lf||"e.g. if you receive mail at perry@brothers.grunt.com,"||lf||"give me .grunt.com"
  33. domainname = rtgetstring("",msg,"DNET-GRn Install", , fonttag)
  34. if domainname = "" then exit
  35.  
  36. msg = "What organization would you like to say you are from?"
  37. organiz = rtgetstring("",msg,"DNET-GRn Install", , fonttag)
  38. if organiz = "" then organiz = "Lazy Typists Union"
  39.  
  40. /* Prepare the user-startup add on */
  41.  
  42. call open .us,"T:grnadd",write
  43. msg = "I am going to append the GRn settings to S:user-startup."
  44. call writeln .us, semicol||"BEGIN grn-dnet"
  45. call writeln .us, "setenv REALNAME "||qmark||realname||qmark
  46. call writeln .us, "setenv NODENAME "||qmark||nodename||qmark
  47. call writeln .us, "setenv DOMAINNAME "||qmark||domainname||qmark
  48. call writeln .us, "setenv ORGANIZATION "||qmark||organiz||qmark
  49. call writeln .us, "setenv NEWSEDITOR "||qmark||"sys:rexxc/rx drexxmail:grneditor.rexx"||qmark
  50. call writeln .us, "setenv SENDMAIL "||qmark||"sys:rexxc/rx drexxmail:grnmailer.rexx"||qmark
  51. call writeln .us, semicol||"END grn-dnet"
  52. call close .us
  53.  
  54. call rtezrequest(msg,"_Ok|_Cancel!","DNET-GRn Install",fonttag)
  55. if rtresult = 0 then exit
  56.  
  57. /* Add to user-startup */
  58.  
  59. 'join s:user-startup t:grnadd AS t:user-startup'
  60. 'copy t:user-startup s:user-startup QUIET'
  61.  
  62. msg = "Done"||lf||"You'll be able to use GRn on your next reboot..."
  63. call rtezrequest(msg,"_Wow!","DNET-GRn Install",fonttag)
  64. exit
  65.  
  66.